home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / JUN / PTRPDEMO / TEST19.TRP < prev    next >
Text File  |  1995-01-17  |  211b  |  9 lines
  1. var
  2.         globVar : string = "This is a global var";
  3. endvar
  4.  
  5. procedure main
  6.         writeln(globVar);
  7.         writeln(debug, "This is a debug string"); // write to the pre-defined debug device
  8. endproc
  9.